home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC World Interactive 2
/
PC World Interactive 2 - Eylül 1997.iso
/
shar
/
ofis
/
allma.exe
/
WHT-PROF.SMM
< prev
next >
Wrap
INI File
|
1994-12-01
|
10KB
|
900 lines
[ver]
4
[sty]
[files]
[charset]
82
ANSI (Windows, IBM CP 1252)
[revisions]
0
[prn]
HP LaserJet IIISi PostScript
[port]
LPT1:
[lang]
1
[fldnames]
Field1
Field2
Field3
Field4
Field5
Field6
Field7
Field8
[desc]
Calls up Proofing icons
786354781
33
757997507
145
4
0
0
0
0
1
[fopts]
0
1
0
0
[lnopts]
2
Body Text
1
[docopts]
5
2
[GramStyle]
[tag]
Defines
2
[fnt]
Times New Roman
200
0
49152
[algn]
1
1
0
0
0
[spc]
33
273
1
0
0
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
0
0
1
1
0
0
0
0
[nfmt]
280
1
2
.
,
$
Body Text
0
0
[tag]
Function
3
[fnt]
Times New Roman
240
0
49153
[algn]
1
1
0
0
0
[spc]
33
273
1
0
0
1
100
[brk]
68
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
0
0
1
1
0
0
0
0
[nfmt]
280
1
2
.
,
$
Body Text
0
0
[tag]
If Endif
4
[fnt]
Times New Roman
240
16711680
49153
[algn]
1
1
0
0
0
[spc]
33
273
1
0
0
1
100
[brk]
68
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
0
0
1
1
0
0
0
0
[nfmt]
280
1
2
.
,
$
Body Text
0
0
[tag]
For Next
5
[fnt]
Times New Roman
240
33024
49153
[algn]
1
1
0
0
0
[spc]
33
273
1
0
0
1
100
[brk]
68
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
0
0
1
1
0
0
0
0
[nfmt]
280
1
2
.
,
$
Body Text
0
0
[tag]
While Wend
6
[fnt]
Times New Roman
240
16711809
49153
[algn]
1
1
0
0
0
[spc]
33
273
1
0
0
1
100
[brk]
68
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
0
0
1
1
0
0
0
0
[nfmt]
280
1
2
.
,
$
Body Text
0
0
[tag]
Label
7
[fnt]
Times New Roman
240
255
49153
[algn]
1
1
0
0
0
[spc]
33
273
1
0
0
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
0
0
1
1
0
0
0
0
[nfmt]
280
1
2
.
,
$
Body Text
0
0
[tag]
Body Text
8
[fnt]
Times New Roman
240
0
49152
[algn]
1
1
0
0
0
[spc]
33
273
1
0
0
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
0
0
1
1
0
0
0
0
[nfmt]
280
1
2
.
,
$
Body Text
0
0
[lay]
Standard
769
[rght]
12240
15840
1
1440
1440
1
1440
1440
0
1
0
1
0
2
1
1440
14400
12
1
720
1
1440
1
2160
1
2880
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
[hrght]
[lyfrm]
1
11200
0
0
15840
1440
0
1
3
1 0 0 0 0 0 0
0
0
1
[frmlay]
1440
15840
1
1440
72
1
792
1440
0
1
0
1
1
0
1
1440
14400
2
2
4680
3
9360
[txt]
ashley bass
>
[frght]
[lyfrm]
1
13248
0
10800
15840
12240
0
1
3
1 0 0 0 0 0 0
0
0
2
[frmlay]
12240
15840
1
1440
792
1
10872
1440
0
1
0
1
1
0
1
1440
14400
2
2
4680
3
9360
[txt]
>
[elay]
[l1]
0
[pg]
4
33 0 12 0 1 0 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
47 43 2 288 0 0 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
67 0 12 256 0 0 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
75 0 0 1281 1 0 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
[edoc]
@Defines@<:#236,12960>Define MoveWindow() DllCall("User,MoveWindow,HHHHHHA",%1,%2,%3,%4,%5,%6)
@Defines@<:#236,12960>Define GetSize() DllCall("user,GetWindowRect,HHN",%1,%2)
@Function@<:#284,12960><-!>
@Function@<:#284,12960>function begin(hdlg)
<:#284,12960>thisfile = getrunningmacrofile$()
<:#284,12960>metrics = getprofilestring$("wht-prof", "Metrics", "{windir}amipro2.ini")
@If Endif@<:#284,12960> if metrics != ""
<:#284,12960> setdlgcallback(0, "{thisfile}!init")
@If Endif@<:#284,12960> endif
<:#284,12960>setdlgcallback(20, "{thisfile}!curloc")
@If Endif@<:#284,12960>DlgKeyInterrupt(<[>F1], "HelpFun") ' This if F1
<:#284,12960>Box = DialogBox(".", "Proofing")
<:#284,12960>IF Box = -1
<:#284,12960>Message("Could not open dialog box; Exiting macro.")
<:#284,12960>EXIT FUNCTION
<:#284,12960>ELSEIF Box = 0
<:#284,12960>EXIT FUNCTION
<:#284,12960>ELSEIF Box = 7
<:#284,12960>IgnoreKeyboard(1)
<:#284,12960>Notes
<:#284,12960>ELSEIF Box = 6
<:#284,12960>RevisionMarking
<:#284,12960>ELSEIF Box = 3
<:#284,12960>SpellCheck(SpellBegin)
<:#284,12960>ELSEIF Box = 4
<:#284,12960>Thesaurus()
<:#284,12960>ELSEIF Box = 5
<:#284,12960>SendKeys("<[>altl]g")
<:#284,12960>ENDIF
<:#284,12960>END FUNCTION
<:#284,12960><-!>FUNCTION HelpFun(hdlg, key)
<:#284,12960>DialogBox(".","Helper")
@Function@<:#284,12960>end function
<:#284,12960>DIALOG Proofing
<:#840,12960>-2134900736 8 208 23 79 17 "" "AmiDialog" "Proofing"
2 3 12 12 3 1342373896 "button" "c:\amipro\icons\dlgicos\pf_spell.bmp" 0
15 3 12 12 4 1342373896 "button" "c:\amipro\icons\dlgicos\pf_thesr.bmp" 0
28 3 12 12 5 1342373896 "button" "c:\amipro\icons\dlgicos\pf_gramr.bmp" 0
41 3 12 12 7 1342373896 "button" "c:\amipro\icons\dlgicos\pf_note.bmp" 0
54 3 12 12 6 1342373896 "button" "c:\amipro\icons\dlgicos\pf_reviz.bmp" 0
69 7 8 8 2 1342373896 "button" "c:\amipro\icons\dlgicos\escape.bmp" 0
<:#840,12960>70 3 6 3 20 1342373888 "button" "" 0
0 1 79 16 1002 1342177287 "static" "" 0
<:#280,12960>END DIALOG
DIALOG Helper
-2143289344 8 115 49 159 63 "" "" ""
<:#852,12960>61 46 40 14 2 1342373888 "button" "&Close" 0
5 14 23 20 1001 1342177281 "static" "Spell Check" 0
127 14 28 23 1002 1342177281 "static" "Revision Marking" 0
33 14 27 20 1003 1342177281 "static" "The saurus" 0
63 14 31 20 1004 1342177281 "static" "Grammar Check" 0
97 14 28 23 1005 1342177281 "static" " Insert Note" 0
2 1 155 37 20 1342308359 "button" "PROOFING help" 0
146 55 12 7 1000 1342177280 "static" <:f240,2Times New Roman,255,255,255>"abb" <:f>0
END DIALOG
function init(hdlg)
metrics = getprofilestring$("wht-prof", "Metrics", "{windir}amipro2.ini")
x = strfield$(metrics, 1, ",")
y = strfield$(metrics, 2, ",")
w = strfield$(metrics, 3, ",")
h = strfield$(metrics, 4, ",")
movewindow(hdlg, x, y, w, h, 1)
@Function@end function
@Function@function curloc(hdlg)
dim coord(4)
getsize(hdlg, &coord)
<:#284,12960>x = coord(1)
<:#284,12960>y = coord(2)
<:#284,12960>cx = coord(3)
<:#284,12960>cy = coord(4)
<:#284,12960>w = cx - x
<:#284,12960>h = cy - y
<:#284,12960>writeprofilestring("wht-prof", "Metrics", strcat$(x, ",", y, ",", w, ",", h), "{windir}amipro2.ini")
<:#284,12960>end function
@Function@<:#270,12960>
>
[Embedded]
00007548
>
[macsum] 6
begin 0 1 5 3
HelpFun 628 2 1 30
Proofing 671 0 -1 33
Helper 1274 0 -1 44
init 1758 1 7 55
curloc 2006 1 9 63
[macse]
14 begin
0 802
13
8 2
0 286 "wht-prof" "Metrics" "{4}amipro2.ini"
13
8 3
6 3
7 ""
18 1
11 00000129
0 41 0 "{2}!init"
0 41 20 "{2}!curloc"
0 47 112 "HelpFun"
0 26 "." "Proofing"
13
8 5
6 5
5 -1
18 0
11 00000305
0 3 "Could not open dialog box; Exiting macro."
6 1
15
9
10 00000616
6 5
5 0
18 0
11 00000359
6 1
15
9
10 00000616
6 5
5 7
18 0
11 00000417
0 32 1
24 282
10 00000616
6 5
5 6
18 0
11 00000467
24 460
10 00000616
6 5
5 3
18 0
11 00000520
2 459 1 1
10 00000616
6 5
5 4
18 0
11 00000571
2 455 0
10 00000616
6 5
5 5
18 0
11 00000616
0 36 "[8268]g"
6 1
15
9
14 HelpFun
0 26 "." "Helper"
6 2
15
9
DIALOG Proofing
-2134900736 8 208 23 79 17 "" "AmiDialog" "Proofing"
2 3 12 12 3 1342373896 "button" "c:\amipro\icons\dlgicos\pf_spell.bmp" 0
15 3 12 12 4 1342373896 "button" "c:\amipro\icons\dlgicos\pf_thesr.bmp" 0
28 3 12 12 5 1342373896 "button" "c:\amipro\icons\dlgicos\pf_gramr.bmp" 0
41 3 12 12 7 1342373896 "button" "c:\amipro\icons\dlgicos\pf_note.bmp" 0
54 3 12 12 6 1342373896 "button" "c:\amipro\icons\dlgicos\pf_reviz.bmp" 0
69 7 8 8 2 1342373896 "button" "c:\amipro\icons\dlgicos\escape.bmp" 0
70 3 6 3 20 1342373888 "button" "" 0
0 1 79 16 1002 1342177287 "static" "" 0
DIALOG Helper
-2143289344 8 115 49 159 63 "" "" ""
61 46 40 14 2 1342373888 "button" "&Close" 0
5 14 23 20 1001 1342177281 "static" "Spell Check" 0
127 14 28 23 1002 1342177281 "static" "Revision Marking" 0
33 14 27 20 1003 1342177281 "static" "The saurus" 0
63 14 31 20 1004 1342177281 "static" "Grammar Check" 0
97 14 28 23 1005 1342177281 "static" " Insert Note" 0
2 1 155 37 20 1342308359 "button" "PROOFING help" 0
146 55 12 7 1000 1342177280 "static" "abb" 0
14 init
0 286 "wht-prof" "Metrics" "{3}amipro2.ini"
13
8 2
0 20 "{2}" 1 ","
13
8 4
0 20 "{2}" 2 ","
13
8 5
0 20 "{2}" 3 ","
13
8 6
0 20 "{2}" 4 ","
13
8 7
0 284 "User,MoveWindow,HHHHHHA" "{0}" "{4}" "{5}" "{6}" "{7}" 1
6 1
15
9
14 curloc
5 4
21 2 [X]
0 284 "user,GetWindowRect,HHN" "{0}" &2
5 1
22 2
8 3
5 2
22 2
8 4
5 3
22 2
8 5
5 4
22 2
8 6
6 5
6 3
3 1
8 7
6 6
6 4
3 1
8 8
0 16 "{3}" "," "{4}" "," "{7}" "," "{8}"
13
0 287 "wht-prof" "Metrics" [X] "{9}amipro2.ini"
6 1
15
9
00007573
